home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / gs_pdf.ps < prev    next >
Text File  |  1997-04-16  |  18KB  |  592 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gs_pdf.ps
  19. % ProcSet for PostScript files created by the PDF to PostScript converter.
  20. % This ProcSet requires only a Level 1 interpreter, unless fonts other
  21. % than ordinary Type 1 or Type 3 fonts are involved.
  22.  
  23. % pdf2ps copies this file from %BEGIN to the end.
  24.  
  25. %BEGIN
  26. mark                % patches
  27. /currentglobal { false }
  28. /setglobal { pop }
  29. /packedarray { array astore readonly }
  30. /setcmykcolor {
  31.   1 exch sub
  32.   4 -1 roll 1 exch sub 1 index mul
  33.   4 -1 roll 1 exch sub 2 index mul
  34.   4 -2 roll exch 1 exch sub mul
  35.   setrgbcolor
  36. }
  37. /setpagedevice {
  38.   statusdict /pageparams get exec
  39.   4 index /PageSize .knownget { aload pop 6 -2 roll pop pop 4 2 roll } if
  40.   4 index /Orientation .knownget { 3 -1 roll pop exch } if
  41.   statusdict /setpageparams get exec
  42.   /PageOffset .knownget { aload pop translate } if
  43. }
  44. /setoverprint { pop }
  45. /setstrokeadjust { pop }
  46. /.copydict { dup 3 -1 roll { put dup } forall pop }
  47. /.dicttomark {
  48.   counttomark 2 idiv dup dict begin { def } repeat pop currentdict end
  49. }
  50. /.knownget { 2 copy known { get true } { pop pop false } ifelse }
  51. /.setdefaultscreen { }
  52. counttomark 2 idiv {
  53.   1 index where { pop pop pop } { bind executeonly def } ifelse
  54. } repeat pop
  55.  
  56. currentglobal true setglobal
  57.  
  58. % Define pdfmark.  Don't allow it to be bound in.
  59. % Also don't define it in systemdict, because this leads some Adobe code
  60. % to think this interpreter is a distiller.
  61. % (If this interpreter really is a distiller, don't do this.)
  62. systemdict /pdfmark known not
  63.  { userdict /pdfmark { cleartomark } bind put } if
  64.  
  65. % This ProcSet is designed so that it can be used either to execute PDF
  66. % (the default) or to convert PDF to PostScript.  See ! and ~ below.
  67.  
  68. userdict /GS_PDF_ProcSet 119 dict dup begin
  69.  
  70. % ---------------- Abbreviations ---------------- %
  71.  
  72. /bdef { bind def } bind def
  73.  
  74. % ---------------- Operator execution ---------------- %
  75.  
  76. % We record "operator" names in a dictionary with their argument counts,
  77. % so that they can easily be redefined later to write PostScript in
  78. % addition to (or instead of) being executed.
  79.  
  80. /numargsdict 100 dict def
  81. /!        % <procname> <proc> <numargs> ! -
  82.  { //numargsdict 3 index 3 -1 roll put def
  83.  } bdef
  84. /~        % <procname> <opname> <numargs> ~ -
  85.  { exch cvx 1 packedarray cvx exch !
  86.  } bdef
  87.  
  88. % ---------------- Graphics state stack ---------------- %
  89.  
  90. % PDF adds a number of parameters to the graphics state.
  91. % We implement this by pushing and popping a dictionary
  92. % each time we do a PDF gsave or grestore.
  93. % The keys in this dictionary are as follows:
  94. %    self            % identifies the dictionary as one of ours
  95. %    Show
  96. %    TextOrigin        % origin of current line, in text space
  97. %    TextSaveMatrix        % matrix at time of BT
  98. % (The following correspond directly to PDF state parameters.)
  99. %    FillColor
  100. %    FillColorSpace
  101. %    StrokeColor
  102. %    StrokeColorSpace
  103. %    TextSpacing
  104. %    TextHScaling
  105. %    Leading
  106. %    TextFont
  107. %    TextMatrix
  108. %    TextRise
  109. %    TextRenderingMode
  110. %    WordSpacing
  111.  
  112. /nodict 1 dict def
  113. nodict /self { //nodict } executeonly put
  114. nodict readonly pop
  115.  
  116. /beginpage
  117.  { //nodict 20 dict .copydict begin graphicsbeginpage textbeginpage
  118.  } bdef
  119. /endpage
  120.  { showpage end
  121.  } bdef
  122.  
  123. /graphicsbeginpage { initgraphics  0 g  0 G } bdef
  124.  
  125. /gput        % <value> <key> gput -
  126.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  127.         % If we're in a Level 1 system, we need to grow the
  128.         % dictionary explicitly.
  129.    currentdict length currentdict maxlength ge %eq
  130.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  131.     }
  132.    if def
  133.  } bdef
  134.  
  135. /q_
  136.  { gsave //nodict begin
  137.  } bdef
  138. /q /q_ load 0 !
  139. % Some PDF files have excess Q operators!
  140. /Q_
  141.  { currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  142.  } bdef
  143. /Q /Q_ load 0 !
  144.  
  145. % ---------------- Graphics state parameters ---------------- %
  146.  
  147. /d /setdash 2 ~
  148. /i /setflat 1 ~
  149. /j /setlinejoin 1 ~
  150. /J /setlinecap 1 ~
  151. /M /setmiterlimit 1 ~
  152. /w /setlinewidth 1 ~
  153.  
  154. % ---------------- Color setting ---------------- %
  155.  
  156. /fcput        % <color> <colorspace> fcput -
  157.  { /FillColorSpace gput /FillColor gput
  158.  } bdef
  159. /scput        % <color> <colorspace> scput -
  160.  { /StrokeColorSpace gput /StrokeColor gput
  161.  } bdef
  162.  
  163. /csdevgray [/DeviceGray] readonly def
  164. /csdevrgb [/DeviceRGB] readonly def
  165. /csdevcmyk [/DeviceCMYK] readonly def
  166.  
  167. /CSdict 11 dict dup begin
  168.   /DeviceGray { 0 exch } bdef
  169.   /DeviceRGB { [0 0 0] cvx exch } bdef
  170.   /DeviceCMYK { [0 0 0 1] cvx exch } bdef
  171.   /Indexed
  172.    { dup 1 get csset exch pop
  173.      dup 2 index 1 get eq
  174.       { pop }
  175.       { exch 4 array copy dup 1 4 -1 roll put }
  176.      ifelse 0 exch
  177.     } bdef
  178.   /setcolorrendering where
  179.    { pop
  180.      /CalGray
  181.       { 1 get dup /Gamma .knownget
  182.      { dup length 1 add dict .copydict
  183.        dup /DecodeA 4 -1 roll /exp load 2 packedarray cvx put
  184.          }
  185.     if /CIEBasedA exch 2 array astore 0 exch
  186.       } bdef
  187.      /CalRGB
  188.       { 1 get dup /Gamma known 1 index /Matrix known or
  189.      { dup length 2 add dict .copydict
  190.        dup /Matrix .knownget { 1 index /MatrixABC 3 -1 roll put } if
  191.        dup /Gamma .knownget
  192.         { [ exch { /exp load 2 packedarray cvx } forall
  193.           ] 1 index /DecodeABC 3 -1 roll put
  194.         }
  195.        if
  196.          }
  197.     if /CIEBasedABC exch 2 array astore [0 0 0] cvx exch
  198.       } bdef
  199.      /CalCMYK { pop //csdevcmyk csset } bdef    % not supported yet
  200.    }
  201.    { /CalGray { pop //csdevgray csset } bdef
  202.      /CalRGB { pop //csdevrgb csset } bdef
  203.      /CalCMYK { pop //csdevcmyk csset } bdef
  204.    }
  205.   ifelse
  206. end def
  207. /csset            % <cspace> csset <color> <cspace>
  208.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec
  209.  } bdef
  210.  
  211. /g { //csdevgray fcput } 1 !
  212. /G { //csdevgray scput } 1 !
  213. /rg { 3 array astore cvx //csdevrgb fcput } 3 !
  214. /RG { 3 array astore cvx //csdevrgb scput } 3 !
  215. /k { 4 array astore cvx //csdevcmyk fcput } 4 !
  216. /K { 4 array astore cvx //csdevcmyk scput } 4 !
  217. /cs { csset fcput } 1 !
  218. /CS { csset scput } 1 !
  219. % We have to break up sc according to the number of operands.
  220. /sc1 { /FillColor gput } 1 !
  221. /SC1 { /StrokeColor gput } 1 !
  222. /sc3 { /FillColor load astore pop } 3 !
  223. /SC3 { /StrokeColor load astore pop } 3 !
  224. /sc4 { /FillColor load astore pop } 4 !
  225. /SC4 { /StrokeColor load astore pop } 4 !
  226.  
  227. % ---------------- Color installation ---------------- %
  228.  
  229. % Establish a given color (and color space) as current.
  230. /setfillcolor { FillColor FillColorSpace setgcolor } def
  231. /setstrokecolor { StrokeColor StrokeColorSpace setgcolor } def
  232. /CIdict mark            % only used for Level 1
  233.   /DeviceGray 1   /DeviceRGB 3   /DeviceCMYK 4
  234.   /CIEBaseA 1   /CIEBaseABC 3   /CIEBasedDEF 3   /CIEBaseDEFG 4
  235. .dicttomark def
  236. /Cdict 11 dict dup begin    % <color...> <colorspace> -proc- -
  237.   /DeviceGray { pop setgray } bdef
  238.   /DeviceRGB { pop setrgbcolor } bdef
  239.   /DeviceCMYK { pop setcmykcolor } bdef
  240.   /CIEBasedA
  241.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  242.   /CIEBasedABC /CIEBasedA load def
  243.   /CIEBasedDEF /CIEBasedA load def
  244.   /CIEBasedDEFG /CIEBasedA load def
  245.   /Indexed /setcolorspace where
  246.    { pop /CIEBasedA load }
  247.    { /setindexedcolor cvx }
  248.   ifelse def
  249. end def
  250. /setindexedcolor        % <index> [/Indexed base hival proc|str]
  251.                 %   setindexedcolor - (only used for Level 1)
  252.  { mark 3 -1 roll
  253.    2 index 3 get    % Stack: cspace -mark- index proc|str
  254.    dup type /stringtype eq
  255.     { //CIdict 4 index 1 get 0 get get        % # of components
  256.       dup 4 -1 roll mul exch getinterval { 255 div } forall
  257.     }
  258.     { exec
  259.     }
  260.    ifelse
  261.    counttomark 2 add -2 roll pop
  262.    1 get setgcolor
  263.  } bdef
  264. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  265.  { 1 index null eq
  266.     { pop pop }
  267.     { dup 0 get //Cdict exch get exec }
  268.    ifelse
  269.  } bdef
  270. /fsexec        % <fillop|strokeop> fsexec -
  271.  {        % Preserve the current point, if any.
  272.     { currentpoint } stopped
  273.     { $error /newerror false put   cvx exec }
  274.     { 3 -1 roll cvx exec moveto }
  275.    ifelse
  276.  } bdef
  277.  
  278. % ---------------- Transformations ---------------- %
  279.  
  280. /cmmatrix matrix def
  281. /cm { //cmmatrix astore concat } 6 !
  282.  
  283. % ---------------- Path creation ---------------- %
  284.  
  285. /m /moveto 2 ~
  286. /l /lineto 2 ~
  287. /c /curveto 6 ~
  288. /h /closepath 0 ~
  289. /v { currentpoint 6 2 roll curveto } 4 !
  290. /y { 2 copy curveto } 4 !
  291. /re
  292.  { 4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  293.    closepath
  294.  } 4 !
  295.  
  296. % ---------------- Path painting and clipping ---------------- %
  297.  
  298. /S_ { setstrokecolor /stroke fsexec } bdef
  299. /S { S_ } 0 !
  300. /f { setfillcolor /fill fsexec } 0 !
  301. /f* { setfillcolor /eofill fsexec } 0 !
  302. /n_ { newpath } bdef        % don't allow n_ to get bound in
  303. /n { n_ } 0 !
  304. /s { closepath S_ } 0 !
  305. /B_ { gsave setfillcolor fill grestore S_ } bdef
  306. /B /B_ load 0 !
  307. /b { closepath B_ } 0 !
  308. /B*_ { gsave setfillcolor eofill grestore S_ } bdef
  309. /B* /B*_ load 0 !
  310. /b* { closepath B*_ } 0 !
  311.  
  312. % Clipping:
  313.  
  314. /Wdict 4 dict dup begin
  315. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  316. /f { gsave setfillcolor fill grestore n_ } 0 !
  317. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  318. /n_ { end clip newpath } bdef
  319. end readonly def
  320. /W { //Wdict begin } 0 !
  321. /W*dict 4 dict dup begin
  322. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  323. /f { gsave setfillcolor fill grestore n_ } 0 !
  324. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  325. /n_ { end eoclip newpath } bdef
  326. end readonly def
  327. /W* { //W*dict begin } 0 !
  328.  
  329. % ---------------- Images ---------------- %
  330.  
  331. % We mustn't bind these now, since they reference Level 2 operators.
  332. /Is        % <imagedict> Is <imagedict> <datasource>
  333.  { dup /DataSource get string /readstring cvx /currentfile cvx
  334.         % Stack: imagedict string -readstring- -currentfile-
  335.    3 index /FilterProc .knownget
  336.     { dup dup 0 get /ASCIIHexDecode eq exch length 2 eq and
  337.        { pop exch pop /readhexstring cvx exch }
  338.        { exch exec exch exec }
  339.       ifelse
  340.     }
  341.    if 3 1 roll /pop cvx 4 packedarray cvx
  342.  } bdef
  343. /EI { } def    % placeholder, only needed when writing PostScript
  344. % Note that ID* take a dictionary, not separate values;
  345. % ColorSpace must be a name if it has no parameters;
  346. % DataSource is the size of the row buffer in bytes;
  347. % FilterProc is an optional procedure for constructing the decoding filter;
  348. % and ImageMask is required, not optional.
  349. /csimage
  350.  { /setcolorspace where
  351.     { pop dup /ColorSpace get csset setcolorspace pop image }
  352.     { .colorspaceimage }
  353.    ifelse
  354.  } def        % don't bind, because of Level 2
  355. /ID    % <imagedict> ID -
  356.  { Is dup 3 -1 roll dup /ImageMask get
  357.     { setfillcolor dup /Interpolate .knownget not { false } if
  358.        { dup /DataSource 4 -1 roll put /imagemask cvx exec
  359.        }
  360.        {  { /Width /Height /Decode /ImageMatrix }
  361.       { 1 index exch get exch }
  362.      forall pop exch 0 get 0 ne exch
  363.      5 -1 roll imagemask
  364.        }
  365.       ifelse
  366.     }
  367.     { dup /ColorSpace get /DeviceGray eq
  368.       1 index /BitsPerComponent get 8 le and
  369.       1 index /Decode get dup 1 get 1 eq exch 0 get 0 eq and and
  370.       1 index /Interpolate .knownget not { false } if not and
  371.        {  { /Width /Height /BitsPerComponent /ImageMatrix }
  372.       { 1 index exch get exch }
  373.      forall pop 5 -1 roll image
  374.        }
  375.        { dup /DataSource 4 -1 roll put csimage
  376.        }
  377.       ifelse
  378.     }
  379.    ifelse
  380.         % If we were reading with readhexstring,
  381.         % skip the terminating > now.
  382.         % Stack: datasource
  383.    dup type /filetype ne        % array or packedarray
  384.     { dup 2 get /readhexstring eq
  385.        {  { dup 0 get exec read pop (>) 0 get eq { exit } if } loop
  386.        }
  387.       if pop
  388.     }
  389.     { pop
  390.     }
  391.    ifelse EI
  392.  } 1 !
  393. % IDx handles general images.
  394. /IDx    % <imagedict> IDx -
  395.  { Is 1 index /DataSource 3 -1 roll put
  396.    csimage EI
  397.  } 1 !
  398.  
  399. % ---------------- Text control ---------------- %
  400.  
  401. /textbeginpage
  402.  { /TextSpacing 0 def        % 0 Tc
  403.    /TextLeading 0 def        % 0 TL
  404.    /TextRenderingMode 0 def    % 0 Tr
  405.    /TextRise 0 def        % 0 Ts
  406.    /WordSpacing 0 def        % 0 Tw
  407.    /TextHScaling 1.0 def    % 100 Tz
  408.    /TextFont null def
  409.    /Show { showfirst } def
  410.  } bdef
  411.  
  412. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  413. % if the CharProc for a Type 3 font does a BT/ET itself.
  414. % Since we always call the CharProc inside a q_/Q_, we simply ensure that
  415. % the text state is saved and restored like the rest of the extended
  416. % graphics state.
  417.  
  418. /settextmatrix
  419.  { TextMatrix concat
  420.    TextHScaling 1 ne { TextHScaling 1 scale } if
  421.    TextRise 0 ne { 0 TextRise translate } if
  422.  } bdef
  423. /settextstate { TextSaveMatrix setmatrix settextmatrix } bdef
  424.  
  425. /BT
  426.  { currentdict /TextMatrix .knownget
  427.     { identmatrix pop }
  428.     { matrix /TextMatrix gput }
  429.    ifelse
  430.    currentdict /TextOrigin .knownget
  431.     { dup 0 0 put 1 0 put }
  432.     { [0 0] cvx /TextOrigin gput }
  433.    ifelse
  434.     { showfirst } /Show gput
  435.    currentdict /TextSaveMatrix .knownget not
  436.     { matrix dup /TextSaveMatrix gput }
  437.    if currentmatrix pop settextmatrix 0 0 moveto
  438.    TextFont dup null eq { pop } { setfont } ifelse
  439.  } bind 0 !
  440. /ET
  441.  { TextSaveMatrix setmatrix
  442.  } bind 0 !
  443. /Tc_ { /TextSpacing gput { showfirst } /Show gput } bdef
  444. /Tc { Tc_ } 1 !
  445. /TL { /TextLeading gput } bind 1 !
  446. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bind 1 !
  447. /Ts { /TextRise gput settextstate } bind 1 !
  448. /Tw_ { /WordSpacing gput { showfirst } /Show gput } bdef
  449. /Tw { Tw_ } 1 !
  450. /Tz { 100 div /TextHScaling gput settextstate } bind 1 !
  451.  
  452. % ---------------- Font control ---------------- %
  453.  
  454. /Tf        % <font> <scale> Tf -
  455.  { dup 1 eq { pop } { scalefont } ifelse
  456.    dup setfont /TextFont gput
  457.  } 2 !
  458.  
  459. % Read a CFF font.
  460. /FRD        % <resdict> <file> FRD -
  461.  { /FontSetInit /ProcSet findresource begin ReadData
  462.  } 2 !
  463.  
  464. % Copy a font, removing its FID.  If changed is true, also remove
  465. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  466. % the keys being removed, don't copy it.
  467. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  468.  { 1 index /FID known
  469.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  470.     {        % We add 1 to the length just in case the original
  471.         % didn't have a FID.
  472.       exch dup length 1 add dict exch
  473.        {        % Stack: changed newfont key value
  474.      1 index /FID eq 4 index
  475.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  476.      if not { 3 copy put } if pop pop
  477.        }
  478.       forall exch
  479.     }
  480.    if pop
  481.  } bdef
  482.  
  483. % Insert a new Encoding or Metrics into a font if necessary.
  484. % Return a possibly updated font, and a flag to indicate whether
  485. % the font was actually copied.
  486. /.updatefont        % <font> <Encoding|null> <Metrics|null> .updatefont
  487.             %   <font'> <copied>
  488.  { 2 index 4 1 roll
  489.    dup null ne
  490.     { 3 -1 roll true .copyfontdict dup /Metrics 4 -1 roll put exch }
  491.     { pop }
  492.    ifelse
  493.    dup null ne 1 index 3 index /Encoding get ne and
  494.     { exch false .copyfontdict dup /Encoding 4 -1 roll put }
  495.     { pop }
  496.    ifelse exch 1 index ne
  497.  } bdef
  498.  
  499. % ---------------- Text positioning ---------------- %
  500.  
  501. /Td_
  502.  { TextOrigin exch 4 -1 roll add 3 1 roll add
  503.    2 copy /TextOrigin load astore pop moveto
  504.  } bdef
  505. /Td { Td_ } 2 !
  506. /TD { dup neg /TextLeading gput Td_ } 2 !
  507. /T*_ { 0 TextLeading neg Td_ } bdef
  508. /T* { T*_ } 0 !
  509. /Tm
  510.  { TextMatrix astore pop settextstate
  511.    0 0 /TextOrigin load astore pop
  512.    0 0 moveto
  513.  } 6 !
  514.  
  515. % ---------------- Text painting ---------------- %
  516.  
  517. /textrenderingprocs [        % (0 is handled specially)
  518.    { tf } { tS } { tB } { tn }
  519.     % We don't know what the clipping modes mean....
  520.    4 copy
  521. ] readonly def
  522. /setshowstate
  523.  { WordSpacing 0 eq TextSpacing 0 eq and
  524.     { TextRenderingMode 0 eq
  525.        { { setfillcolor show } }
  526.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  527.       ifelse
  528.     }
  529.     { TextRenderingMode 0 eq
  530.        { WordSpacing 0 eq
  531.           { { setfillcolor TextSpacing exch 0 exch ashow } }
  532.       { TextSpacing 0 eq
  533.          { { setfillcolor WordSpacing exch 0 exch 32 exch widthshow } }
  534.          { { setfillcolor WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
  535.         ifelse
  536.       }
  537.      ifelse
  538.        }
  539.        { { WordSpacing TextSpacing 2 index
  540.             % Implement the combination of t3 and false charpath.
  541.             % Stack: xword xchar string
  542.        0 1 2 index length 1 sub
  543.         { 2 copy 1 getinterval false charpath
  544.             % Stack: xword xchar string i
  545.           4 copy get 32 eq { add } { exch pop } ifelse 0 rmoveto
  546.           pop
  547.         }
  548.        for pop pop pop pop
  549.        textrenderingprocs TextRenderingMode get exec
  550.      }
  551.        }
  552.       ifelse
  553.     }
  554.    ifelse /Show gput
  555.  } bdef
  556. /showfirst { setshowstate Show } def
  557.  
  558. /Tj { Show } 1 !
  559. /' { T*_ Show } 1 !
  560. /" { exch Tc_ exch Tw_ T*_ Show } 3 !
  561. % TJ expects a mark followed by arguments, not an array.
  562. /TJ
  563.  { counttomark -1 1
  564.     { -1 roll dup type /stringtype eq
  565.        { Show
  566.        }
  567.        { -1000 div
  568.      currentfont /ScaleMatrix .knownget { 0 get mul } if
  569.      0 rmoveto
  570.        }
  571.       ifelse
  572.     }
  573.    for pop
  574. % Adobe implementations don't accept /[, so we don't either.
  575.  } ([) cvn !
  576.  
  577. /tf { setfillcolor currentpoint fill moveto } bdef
  578. /tn { currentpoint newpath moveto } bdef
  579. % For stroking characters, temporarily restore the graphics CTM so that
  580. % the line width will be transformed properly.
  581. /Tmatrix matrix def
  582. /tS
  583.  { setstrokecolor
  584.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  585.    setmatrix moveto
  586.  } bdef
  587. /tB { gsave tf grestore tS } bdef
  588.  
  589. end readonly put        % GS_PDF_ProcSet
  590.  
  591. setglobal
  592.